home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / clx / build-clx.lisp < prev    next >
Text File  |  1991-11-06  |  695b  |  26 lines
  1. ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
  2.  
  3. ;;; Load this file if you want to compile CLX in its entirety.
  4. #+nil
  5. (proclaim '(optimize (speed 3) (safety 0) (space 1)
  6.              (compilation-speed 0)))
  7.  
  8.  
  9. ;;; Hide CLOS from CLX, so objects stay implemented as structures.
  10. ;;;
  11. (when (find-package "CLOS")
  12.   (rename-package (find-package "CLOS") "NO-CLOS-HERE"))
  13. (when (find-package "PCL")
  14.   (rename-package (find-package "PCL") "NO-PCL-HERE"))
  15.  
  16.  
  17. (when (find-package "XLIB")
  18.   (rename-package (find-package "XLIB") "OLD-XLIB"))
  19.  
  20. ;(make-package "XLIB" :use '("LISP"))
  21.  
  22. (compile-file "clx:defsystem.lisp" :error-file nil :load t)
  23.  
  24. (with-compilation-unit ()
  25.   (xlib:compile-clx (pathname "clx:")))
  26.